From: Leo Liu <sdl.web@gmail.com>
Date: Mon, 13 Feb 2012 07:54:47 +0000 (+0800)
Subject: Trivial fix for rcirc-markup-attributes
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~780
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6923a9c4659886527efccc0fb97513061e14b597;p=emacs.git

Trivial fix for rcirc-markup-attributes
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6afdc95975..e707fa4074d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-13  Leo Liu  <sdl.web@gmail.com>
+
+	* net/rcirc.el (rcirc-markup-attributes): Move point to the
+	beginning so that all \C-o chars are removed.
+
 2012-02-12  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* net/gnutls.el (gnutls-algorithm-priority): Add missing :group
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index b8bf270d87c..1c74e6190dc 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2384,6 +2384,7 @@ keywords when no KEYWORD is given."
     (delete-region (match-beginning 1) (match-end 1))
     (goto-char (match-beginning 1)))
   ;; remove the ^O characters now
+  (goto-char (point-min))
   (while (re-search-forward "\C-o+" nil t)
     (delete-region (match-beginning 0) (match-end 0))))